perm filename GLX[MUS,LCS]1 blob
sn#271073 filedate 1977-03-23 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00002 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002
C00024 ENDMK
C⊗;
INSTRUMENT GLIA;
OSCIL[10](P4,10*MAG/P2,P5);
OSCIL((P7-P3)*MAG,MAG/P2,P8);
COSCIL(U1,P3*MAG+U2,P6);<P6 IS TONE COLOR FOR 'GLISS'
OUTA←OUTA+U3;
END;
INSTRUMENT GLIB;
OSCIL[10](P4,10*MAG/P2,P5);
OSCIL((P7-P3)*MAG,MAG/P2,P8);
COSCIL(U1,P3*MAG+U2,P6);<P6 IS TONE COLOR FOR 'GLISS'
OUTA←OUTA+U3;
END;
INSTRUMENT GLXA;
OSCIL[10](P4,10*MAG/P2,P5);
OSCIL((P7-P3)*MAG,MAG/P2,P8);
COSCIL(U1,P3*MAG+U2,P6);<P6 IS TONE COLOR FOR 'GLISS'
OUTA←OUTA+U3;
END;
INSTRUMENT GLXB;
OSCIL[10](P4,10*MAG/P2,P5);
OSCIL((P7-P3)*MAG,MAG/P2,P8);
COSCIL(U1,P3*MAG+U2,P6);<P6 IS TONE COLOR FOR 'GLISS'
OUTA←OUTA+U3;
END;
INSTRUMENT GLIC;
OSCIL[10](P4,10*MAG/P2,P5);
OSCIL((P7-P3)*MAG,MAG/P2,P8);
COSCIL(U1,P3*MAG+U2,P6);<P6 IS TONE COLOR FOR 'GLISS'
OUTA←OUTA+U3;
END;
INSTRUMENT GLID;
OSCIL[10](P4,10*MAG/P2,P5);
OSCIL((P7-P3)*MAG,MAG/P2,P8);
COSCIL(U1,P3*MAG+U2,P6);<P6 IS TONE COLOR FOR 'GLISS'
OUTA←OUTA+U3;
END;
INSTRUMENT GLIE;
OSCIL[10](P4,10*MAG/P2,P5);
OSCIL((P7-P3)*MAG,MAG/P2,P8);
COSCIL(U1,P3*MAG+U2,P6);<P6 IS TONE COLOR FOR 'GLISS'
OUTA←OUTA+U3;
END;
INSTRUMENT GLIF;
OSCIL[10](P4,10*MAG/P2,P5);
OSCIL((P7-P3)*MAG,MAG/P2,P8);
COSCIL(U1,P3*MAG+U2,P6);<P6 IS TONE COLOR FOR 'GLISS'
OUTA←OUTA+U3;
END;
INSTRUMENT GLIG;
OSCIL[10](P4,10*MAG/P2,P5);
OSCIL((P7-P3)*MAG,MAG/P2,P8);
COSCIL(U1,P3*MAG+U2,P6);<P6 IS TONE COLOR FOR 'GLISS'
OUTA←OUTA+U3;
END;
INSTRUMENT GLIH;
OSCIL[10](P4,10*MAG/P2,P5);
OSCIL((P7-P3)*MAG,MAG/P2,P8);
COSCIL(U1,P3*MAG+U2,P6);<P6 IS TONE COLOR FOR 'GLISS'
OUTA←OUTA+U3;
END;
INSTRUMENT GLII;
OSCIL[10](P4,10*MAG/P2,P5);
OSCIL((P7-P3)*MAG,MAG/P2,P8);
COSCIL(U1,P3*MAG+U2,P6);<P6 IS TONE COLOR FOR 'GLISS'
OUTA←OUTA+U3;
END;
INSTRUMENT GLIJ;
OSCIL[10](P4,10*MAG/P2,P5);
OSCIL((P7-P3)*MAG,MAG/P2,P8);
COSCIL(U1,P3*MAG+U2,P6);<P6 IS TONE COLOR FOR 'GLISS'
OUTA←OUTA+U3;
END;
INSTRUMENT GLIK;
OSCIL[10](P4,10*MAG/P2,P5);
OSCIL((P7-P3)*MAG,MAG/P2,P8);
COSCIL(U1,P3*MAG+U2,P6);<P6 IS TONE COLOR FOR 'GLISS'
OUTA←OUTA+U3;
END;
INSTRUMENT GLIL;
OSCIL[10](P4,10*MAG/P2,P5);
OSCIL((P7-P3)*MAG,MAG/P2,P8);
COSCIL(U1,P3*MAG+U2,P6);<P6 IS TONE COLOR FOR 'GLISS'
OUTA←OUTA+U3;
END;
INSTRUMENT GLIM;
OSCIL[10](P4,10*MAG/P2,P5);
OSCIL((P7-P3)*MAG,MAG/P2,P8);
COSCIL(U1,P3*MAG+U2,P6);<P6 IS TONE COLOR FOR 'GLISS'
OUTA←OUTA+U3;
END;
INSTRUMENT GLIN;
OSCIL[10](P4,10*MAG/P2,P5);
OSCIL((P7-P3)*MAG,MAG/P2,P8);
COSCIL(U1,P3*MAG+U2,P6);<P6 IS TONE COLOR FOR 'GLISS'
OUTA←OUTA+U3;
END;
INSTRUMENT GLIO;
OSCIL[10](P4,10*MAG/P2,P5);
OSCIL((P7-P3)*MAG,MAG/P2,P8);
COSCIL(U1,P3*MAG+U2,P6);<P6 IS TONE COLOR FOR 'GLISS'
OUTA←OUTA+U3;
END;
INSTRUMENT GLIP;
OSCIL[10](P4,10*MAG/P2,P5);
OSCIL((P7-P3)*MAG,MAG/P2,P8);
COSCIL(U1,P3*MAG+U2,P6);<P6 IS TONE COLOR FOR 'GLISS'
OUTA←OUTA+U3;
END;
INSTRUMENT GLIQ;
OSCIL[10](P4,10*MAG/P2,P5);
OSCIL((P7-P3)*MAG,MAG/P2,P8);
COSCIL(U1,P3*MAG+U2,P6);<P6 IS TONE COLOR FOR 'GLISS'
OUTA←OUTA+U3;
END;
INSTRUMENT GLIR;
OSCIL[10](P4,10*MAG/P2,P5);
OSCIL((P7-P3)*MAG,MAG/P2,P8);
COSCIL(U1,P3*MAG+U2,P6);<P6 IS TONE COLOR FOR 'GLISS'
OUTA←OUTA+U3;
END;
INSTRUMENT GLIS;
OSCIL[10](P4,10*MAG/P2,P5);
OSCIL((P7-P3)*MAG,MAG/P2,P8);
COSCIL(U1,P3*MAG+U2,P6);<P6 IS TONE COLOR FOR 'GLISS'
OUTA←OUTA+U3;
END;
INSTRUMENT GLIT;
OSCIL[10](P4,10*MAG/P2,P5);
OSCIL((P7-P3)*MAG,MAG/P2,P8);
COSCIL(U1,P3*MAG+U2,P6);<P6 IS TONE COLOR FOR 'GLISS'
OUTA←OUTA+U3;
END;
INSTRUMENT GLIU;
OSCIL[10](P4,10*MAG/P2,P5);
OSCIL((P7-P3)*MAG,MAG/P2,P8);
COSCIL(U1,P3*MAG+U2,P6);<P6 IS TONE COLOR FOR 'GLISS'
OUTA←OUTA+U3;
END;
INSTRUMENT GLIV;
OSCIL[10](P4,10*MAG/P2,P5);
OSCIL((P7-P3)*MAG,MAG/P2,P8);
COSCIL(U1,P3*MAG+U2,P6);<P6 IS TONE COLOR FOR 'GLISS'
OUTA←OUTA+U3;
END;
INSTRUMENT GLIW;
OSCIL[10](P4,10*MAG/P2,P5);
OSCIL((P7-P3)*MAG,MAG/P2,P8);
COSCIL(U1,P3*MAG+U2,P6);<P6 IS TONE COLOR FOR 'GLISS'
OUTA←OUTA+U3;
END;
INSTRUMENT GLIX;
OSCIL[10](P4,10*MAG/P2,P5);
OSCIL((P7-P3)*MAG,MAG/P2,P8);
COSCIL(U1,P3*MAG+U2,P6);<P6 IS TONE COLOR FOR 'GLISS'
OUTA←OUTA+U3;
END;
INSTRUMENT GLIY;
OSCIL[10](P4,10*MAG/P2,P5);
OSCIL((P7-P3)*MAG,MAG/P2,P8);
COSCIL(U1,P3*MAG+U2,P6);<P6 IS TONE COLOR FOR 'GLISS'
OUTA←OUTA+U3;
END;
INSTRUMENT GLIZ;
OSCIL[10](P4,10*MAG/P2,P5);
OSCIL((P7-P3)*MAG,MAG/P2,P8);
COSCIL(U1,P3*MAG+U2,P6);<P6 IS TONE COLOR FOR 'GLISS'
OUTA←OUTA+U3;
END;
ARRAY F10(512);SEG(F10);0 1 1 100;
<<PLAY;GLIA 0 .2 C 1200 F1 F3 C*2 F10;FINISH;
INSTRUMENT CLARA;
OSCIL[10](P4,10*MAG/P2,P5);
COSCIL(U1,P3*MAG,P7);< P7 IS TONE COLOR FOR 'CLAR'
OUTA←OUTA+U2;
END;
INSTRUMENT CLARB;
OSCIL[10](P4,10*MAG/P2,P5);
COSCIL(U1,P3*MAG,P7);< P7 IS TONE COLOR FOR 'CLAR'
OUTA←OUTA+U2;
END;
INSTRUMENT CLAXA;
OSCIL[10](P4,10*MAG/P2,P5);
COSCIL(U1,P3*MAG,P7);< P7 IS TONE COLOR FOR 'CLAR'
OUTA←OUTA+U2;
END;
INSTRUMENT CLAXB;
OSCIL[10](P4,10*MAG/P2,P5);
COSCIL(U1,P3*MAG,P7);< P7 IS TONE COLOR FOR 'CLAR'
OUTA←OUTA+U2;
END;
INSTRUMENT CLARC;
OSCIL[10](P4,10*MAG/P2,P5);
COSCIL(U1,P3*MAG,P7);< P7 IS TONE COLOR FOR 'CLAR'
OUTA←OUTA+U2;
END;
INSTRUMENT CLARD;
OSCIL[10](P4,10*MAG/P2,P5);
COSCIL(U1,P3*MAG,P7);< P7 IS TONE COLOR FOR 'CLAR'
OUTA←OUTA+U2;
END;
INSTRUMENT CLARE;
OSCIL[10](P4,10*MAG/P2,P5);
COSCIL(U1,P3*MAG,P7);< P7 IS TONE COLOR FOR 'CLAR'
OUTA←OUTA+U2;
END;
INSTRUMENT CLARF;
OSCIL[10](P4,10*MAG/P2,P5);
COSCIL(U1,P3*MAG,P7);< P7 IS TONE COLOR FOR 'CLAR'
OUTA←OUTA+U2;
END;
INSTRUMENT CLARG;
OSCIL[10](P4,10*MAG/P2,P5);
COSCIL(U1,P3*MAG,P7);< P7 IS TONE COLOR FOR 'CLAR'
OUTA←OUTA+U2;
END;
INSTRUMENT CLARH;
OSCIL[10](P4,10*MAG/P2,P5);
COSCIL(U1,P3*MAG,P7);< P7 IS TONE COLOR FOR 'CLAR'
OUTA←OUTA+U2;
END;
INSTRUMENT CLARI;
OSCIL[10](P4,10*MAG/P2,P5);
COSCIL(U1,P3*MAG,P7);< P7 IS TONE COLOR FOR 'CLAR'
OUTA←OUTA+U2;
END;
INSTRUMENT CLARJ;
OSCIL[10](P4,10*MAG/P2,P5);
COSCIL(U1,P3*MAG,P7);< P7 IS TONE COLOR FOR 'CLAR'
OUTA←OUTA+U2;
END;
INSTRUMENT CLARK;
OSCIL[10](P4,10*MAG/P2,P5);
COSCIL(U1,P3*MAG,P7);< P7 IS TONE COLOR FOR 'CLAR'
OUTA←OUTA+U2;
END;
INSTRUMENT CLARL;
OSCIL[10](P4,10*MAG/P2,P5);
COSCIL(U1,P3*MAG,P7);< P7 IS TONE COLOR FOR 'CLAR'
OUTA←OUTA+U2;
END;
INSTRUMENT CLARM;
OSCIL[10](P4,10*MAG/P2,P5);
COSCIL(U1,P3*MAG,P7);< P7 IS TONE COLOR FOR 'CLAR'
OUTA←OUTA+U2;
END;
INSTRUMENT CLARN;
OSCIL[10](P4,10*MAG/P2,P5);
COSCIL(U1,P3*MAG,P7);< P7 IS TONE COLOR FOR 'CLAR'
OUTA←OUTA+U2;
END;
INSTRUMENT CLARO;
OSCIL[10](P4,10*MAG/P2,P5);
COSCIL(U1,P3*MAG,P7);< P7 IS TONE COLOR FOR 'CLAR'
OUTA←OUTA+U2;
END;
INSTRUMENT CLARP;
OSCIL[10](P4,10*MAG/P2,P5);
COSCIL(U1,P3*MAG,P7);< P7 IS TONE COLOR FOR 'CLAR'
OUTA←OUTA+U2;
END;
INSTRUMENT CLARQ;
OSCIL[10](P4,10*MAG/P2,P5);
COSCIL(U1,P3*MAG,P7);< P7 IS TONE COLOR FOR 'CLAR'
OUTA←OUTA+U2;
END;
INSTRUMENT CLARR;
OSCIL[10](P4,10*MAG/P2,P5);
COSCIL(U1,P3*MAG,P7);< P7 IS TONE COLOR FOR 'CLAR'
OUTA←OUTA+U2;
END;
INSTRUMENT CLARS;
OSCIL[10](P4,10*MAG/P2,P5);
COSCIL(U1,P3*MAG,P7);< P7 IS TONE COLOR FOR 'CLAR'
OUTA←OUTA+U2;
END;
INSTRUMENT CLART;
OSCIL[10](P4,10*MAG/P2,P5);
COSCIL(U1,P3*MAG,P7);< P7 IS TONE COLOR FOR 'CLAR'
OUTA←OUTA+U2;
END;
INSTRUMENT CLARU;
OSCIL[10](P4,10*MAG/P2,P5);
COSCIL(U1,P3*MAG,P7);< P7 IS TONE COLOR FOR 'CLAR'
OUTA←OUTA+U2;
END;
INSTRUMENT CLARV;
OSCIL[10](P4,10*MAG/P2,P5);
COSCIL(U1,P3*MAG,P7);< P7 IS TONE COLOR FOR 'CLAR'
OUTA←OUTA+U2;
END;
INSTRUMENT CLARW;
OSCIL[10](P4,10*MAG/P2,P5);
COSCIL(U1,P3*MAG,P7);< P7 IS TONE COLOR FOR 'CLAR'
OUTA←OUTA+U2;
END;
INSTRUMENT CLARX;
OSCIL[10](P4,10*MAG/P2,P5);
COSCIL(U1,P3*MAG,P7);< P7 IS TONE COLOR FOR 'CLAR'
OUTA←OUTA+U2;
END;
INSTRUMENT CLARY;
OSCIL[10](P4,10*MAG/P2,P5);
COSCIL(U1,P3*MAG,P7);< P7 IS TONE COLOR FOR 'CLAR'
OUTA←OUTA+U2;
END;
INSTRUMENT CLARZ;
OSCIL[10](P4,10*MAG/P2,P5);
COSCIL(U1,P3*MAG,P7);< P7 IS TONE COLOR FOR 'CLAR'
OUTA←OUTA+U2;
END;
ARRAY F1
(512);
SEG (F1 );
0.0000 520.0000
1.0000 0.9835 0.9672 0.9512 0.9355 0.9200 0.9048 0.8899
0.8752 0.8607 0.8465 0.8325 0.8187 0.8052 0.7919 0.7788
0.7659 0.7533 0.7408 0.7286 0.7165 0.7047 0.6930 0.6816
0.6703 0.6592 0.6483 0.6376 0.6271 0.6167 0.6065 0.5965
0.5866 0.5769 0.5674 0.5580 0.5488 0.5397 0.5308 0.5220
0.5134 0.5049 0.4966 0.4884 0.4803 0.4723 0.4645 0.4569
0.4493 0.4419 0.4346 0.4274 0.4203 0.4134 0.4065 0.3998
0.3932 0.3867 0.3803 0.3740 0.3679 0.3618 0.3558 0.3499
0.3441 0.3384 0.3328 0.3273 0.3219 0.3166 0.3114 0.3062
0.3012 0.2962 0.2913 0.2865 0.2817 0.2771 0.2725 0.2680
0.2636 0.2592 0.2549 0.2507 0.2466 0.2425 0.2385 0.2345
0.2307 0.2268 0.2231 0.2194 0.2158 0.2122 0.2087 0.2053
0.2019 0.1985 0.1952 0.1920 0.1888 0.1857 0.1826 0.1796
0.1767 0.1737 0.1709 0.1680 0.1653 0.1625 0.1598 0.1572
0.1546 0.1520 0.1495 0.1471 0.1446 0.1422 0.1399 0.1376
0.1353 0.1331 0.1309 0.1287 0.1266 0.1245 0.1224 0.1204
0.1184 0.1164 0.1145 0.1126 0.1108 0.1089 0.1071 0.1053
0.1036 0.1019 0.1002 0.0985 0.0969 0.0953 0.0937 0.0922
0.0907 0.0892 0.0877 0.0862 0.0848 0.0834 0.0820 0.0807
0.0793 0.0780 0.0767 0.0755 0.0742 0.0730 0.0718 0.0706
0.0694 0.0683 0.0671 0.0660 0.0649 0.0639 0.0628 0.0618
0.0607 0.0597 0.0587 0.0578 0.0568 0.0559 0.0550 0.0540
0.0532 0.0523 0.0514 0.0506 0.0497 0.0489 0.0481 0.0473
0.0465 0.0457 0.0450 0.0442 0.0435 0.0428 0.0421 0.0414
0.0407 0.0400 0.0393 0.0387 0.0381 0.0374 0.0368 0.0362
0.0356 0.0350 0.0344 0.0339 0.0333 0.0327 0.0322 0.0317
0.0311 0.0306 0.0301 0.0296 0.0291 0.0286 0.0282 0.0277
0.0272 0.0268 0.0263 0.0259 0.0255 0.0251 0.0246 0.0242
0.0238 0.0234 0.0230 0.0227 0.0223 0.0219 0.0215 0.0212
0.0208 0.0205 0.0202 0.0198 0.0195 0.0192 0.0188 0.0185
0.0182 0.0179 0.0176 0.0173 0.0170 0.0168 0.0165 0.0162
0.0159 0.0157 0.0154 0.0151 0.0149 0.0146 0.0144 0.0142
0.0139 0.0137 0.0135 0.0132 0.0130 0.0128 0.0126 0.0124
0.0122 0.0120 0.0118 0.0116 0.0114 0.0112 0.0110 0.0108
0.0106 0.0105 0.0103 0.0101 0.0099 0.0098 0.0096 0.0095
0.0093 0.0091 0.0090 0.0088 0.0087 0.0085 0.0084 0.0083
0.0081 0.0080 0.0078 0.0077 0.0076 0.0075 0.0073 0.0072
0.0071 0.0070 0.0068 0.0067 0.0066 0.0065 0.0064 0.0063
0.0062 0.0061 0.0060 0.0059 0.0058 0.0057 0.0056 0.0055
0.0054 0.0053 0.0052 0.0051 0.0050 0.0050 0.0049 0.0048
0.0047 0.0046 0.0045 0.0045 0.0044 0.0043 0.0042 0.0042
0.0041 0.0040 0.0040 0.0039 0.0038 0.0038 0.0037 0.0036
0.0036 0.0035 0.0034 0.0034 0.0033 0.0033 0.0032 0.0032
0.0031 0.0030 0.0030 0.0029 0.0029 0.0028 0.0028 0.0027
0.0027 0.0026 0.0026 0.0026 0.0025 0.0025 0.0024 0.0024
0.0023 0.0023 0.0023 0.0022 0.0022 0.0021 0.0021 0.0021
0.0020 0.0020 0.0020 0.0019 0.0019 0.0018 0.0018 0.0018
0.0018 0.0017 0.0017 0.0017 0.0016 0.0016 0.0016 0.0015
0.0015 0.0015 0.0015 0.0014 0.0014 0.0014 0.0014 0.0013
0.0013 0.0013 0.0013 0.0012 0.0012 0.0012 0.0012 0.0011
0.0011 0.0011 0.0011 0.0011 0.0010 0.0010 0.0010 0.0010
0.0010 0.0009 0.0009 0.0009 0.0009 0.0009 0.0008 0.0008
0.0008 0.0008 0.0008 0.0008 0.0007 0.0007 0.0007 0.0007
0.0007 0.0007 0.0007 0.0006 0.0006 0.0006 0.0006 0.0006
0.0006 0.0006 0.0006 0.0005 0.0005 0.0005 0.0005 0.0005
0.0005 0.0005 0.0005 0.0004 0.0004 0.0004 0.0004 0.0004
0.0004 0.0004 0.0004 0.0004 0.0004 0.0003 0.0003 0.0003
0.0003 0.0003 0.0003 0.0003 0.0003 0.0003 0.0003 0.0003
0.0003 0.0002 0.0002 0.0002 0.0002 0.0002 0.0002 0.0002
0.0002 0.0002 0.0002 0.0002 0.0002 0.0002 0.0002 0.0002
0.0001 0.0001 0.0001 0.0001 0.0001 0.0001 0.0001 0.0001
0.0001 0.0001 0.0001 0.0001 0.0001 0.0001 0.0001 0.0001
0.0001 0.0001 0.0001 0.0000 0.0000 0.0000 0.0000 0.0000
0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000